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Acerca de este libro 


Este libro contiene programas sencillos de 
juegos para usar con un microordenador 
ZX81, ZX Spectrum, MSX, VIC 20, 
Commodore 64 o Apple. Y algunos son lo 
suficientemente pequeños como para que 
quepan en la memoria de 1 K de un ZX81. 

La mayoría de los micros usan el 
lenguaje BASIC, pero todos ellos tienen 
sus propias variaciones y dialectos. El 
listado que se da de cada programa en 
este libro corresponde al ZX81, y las líneas 
que tienen que cambiarse para otros 
ordenadores se marcan con un símbolo y 
se imprimen debajo. El hecho de que los 
programas hayan sido hechos para varias 
máquinas implica que no aprovechan todas 
las capacidades de cada una. Puedes 
intentar encontrar modos de hacer que los 
programas sean más cortos y bonitos. 

Para cada juego, se dan ideas para 
ampliar y modificar el programa y en la 
parte final del libro encontrarás ayudas y 
consejos para escribir tus propios juegos. 
También hallarás una tabla de conversión 
para ayudarte a adaptar los programas de 
revistas y otros libros a tu ordenador y un 
resumen de todos los términos del BASIC 
usados en este libro. 


Tecleado de los programas 


Las líneas que es necesario cambiar para 
otro ordenador que no sea el ZX81, se 
marcan con los siguientes símbolos: 

A VIC 20 y Commodore 64 

* MSX 

e Apple 

m ZX Spectrum 

* ZX81l 
Cada vez que veas el símbolo del 
ordenador que estás usando, mira a la 
parte inferior de la hoja y teclea en su 
lugar la línea con el mismo número y con 
el mismo símbolo. 


OS 


Recuerda estos puntos 


1. Teclea las líneas tal como están 
impresas, incluyendo todos los signos de 
puntuación y los espacios. 

2. Teclea RETURN o ENTER al final de 
cada línea del listado. 

3. Comprueba cada línea cuando la 
termines. 

4. Asegúrate de que no te olvidas de 
ninguna línea ni confundes una con otra. 
Un trozo de papel o una regla es útil para 
señalar la línea por la que vas. 

5. Mira los signos y asegúrate de que usas 
las líneas correctas para tu ordenador. 

6. Si usas un ZX81 o un ZX Spectrum, 
recuerda que no tienes que teclear las 
instrucciones letra a letra, sino usar las 
teclas especiales existentes para cada 
instrucción. 

Puede resultarte más fácil que alguien 
vaya leyendo el listado mientras lo tecleas. 
No te olvides de explicarle que debe leer 
cada coma, punto, paréntesis y espacio y 
que tiene que diferenciar entre la letra “O” 
y el cero y entre la “l” y el uno. 


Eliminación de errores 


Cuando hayas tecleado el 
programa, mira el manual 
para ver cómo puedes 
conseguir que salga en 
pantalla. (Normalmente 
es la instrucción LIST 
seguida por el número de 
las líneas de la sección 
que quieres ver.) 
Comprueba que has 
tecleado todo 


correctamente. Es fácil 
confundirse, de modo 
que no te asustes si 
aparece algún error. Mira 
tu manual para ver cómo 
puedes hacer cambios al 
programa una vez que lo 
yA has tecleado. Si no estás 
seguro, siempre puedes 
volver a teclear toda la 
línea. Todos los 
ordenadores sustituyen 
una línea ya existente por 
una nueva con el mismo 
número. 

Aquí te damos una lista de los errores 
que más frecuentemente se suelen 
cometer: 

1. Líneas sin teclear. 

2. Líneas mal numeradas. 

3. Dos líneas seguidas. 

4. Se te puede haber olvidado algún signo 
de puntuación: paréntesis, comas, puntos 
o espacios; sobre todo en líneas 
complicadas y largas. Comprueba 
especialmente que existan tantos 
paréntesis abiertos como cerrados. 

5. Puedes haber tecleado una línea que no 
corresponda a tu ordenador. 

6. Confundir la letra “O” con un cero, o la 
“I” con un uno. 

7. Usar números erróneos. Por ejemplo, 
incluyendo ceros de más. 


Jugando con los programas 


Para empezar a jugar, teclea RUN. En 
algunos juegos, las cosas suceden muy 
rápidamente, por lo que tienes que leerte 
las instrucciones antes para saber qué es 
es lo que tienes que hacer. 

Es muy probable que el programa siga 
teniendo algún error y que no funcione o 
funcione mal. A veces el ordenador se 
parará y te dará un error. Para saber qué 


Si tienes un Spectrum o un MSX mira la página 37, donde se te hacen indicaciones. 


significa puedes mirar el manual. Éste 
te puede ayudar a encontrar el error, 
pero no siempre lo hará. Lista el 
programa de nuevo y compáralo con 
el del libro con mucha atención. 

Cuando el programa se termine, el 
ordenador imprimirá una frase del tipo 
“BREAK IN LINE 200”. Para jugar de 
nuevo, teclea RUN. 


Experimenta con los juegos 


A lo largo del libro hay sugerencias para 
modificar y hacer añadidos a los 
programas, pero no tengas miedo de hacer 
otros que se te ocurran. No estropearás el 
ordenador y siempre puedes volver al 
original si lo que has cambiado no 
funciona. 

Probablemente querrás ajustar la 
velocidad de algunos juegos*, 
especialmente cuando ya tengas 
experiencia con ellos. Para ello, se indica 
en la página de cada programa qué línea 
hay que cambiar. 

En los sitios en los que aparece la 
instrucción PRINT, 
puedes cambiar el 
mensaje que hay entre 
las comillas por otro 
cualquiera que tú 
prefieras. También, a 
menos que tengas un 
ZX81 con sólo 1 K de 
memoria, podrás 
añadir más mensajes. 
Para hacerlo, teclea 
un número de línea 
(por ejemplo 105 si quieres ponerlo entre la 
100 y la 110) seguido de PRINT y del 
mensaje entre comillas. 

Si tu ordenador tiene colores y sonido, 
puedes mejorar tu juego añadiéndoselos al 
programa, siguiendo las instrucciones que 
se den en el manual del ordenador. 


El misil robot 


Estás en el año 2582, y la Tierra se encuentra 
en plena batalla contra los robots. Un misil 
robot letal ha sido lanzado contra la Tierra y 
todo el mundo espera que tú descubras el 
código secreto que permitirá desactivar el 
mecanismo del artefacto. Si fallas, la Tierra 
será destruida. 

Tu ordenador sabe cuál es la letra del 
código, pero eres tú quien tiene que teclear la 
que imaginas y él te dirá si es anterior o 
posterior en orden alfabético. Tienes cuatro 
oportunidades para teclear la letra correcta 
antes de que estalle el misil; | 


_J0 PRINT "MISIL ROBOT” 
20 FRINT 


30 PRINT "TECLEA LA LETRA CORRECTA” 
40 FRINT "DEL CODIGO (A-Z) PARA” 


50 PRINT "DESARMAR EL MISIL.” 
60 PRINT "TIENES 4 INTENTOS” 
70 FRINT 


MXAOE0 


90 FOR G=1 TO 4 
100 INPUT G$ 


110 IF G$=C$ THEN GOTO 210 


120 IF G$<C$ THEN PRINT "POSTERIOR"; 
130 IF G$>C$ THEN PRINT "ANTERIOR"; 


1940 PRINT ” QUE ";6$ 


150 NEXT 6 


160 PRINT 
170 PRINT "BOOOCOO0N0OMMM. ..” 
180 PRINT "VOLASTE EN PEDAZUS.” 


190 PRINT "EL CCDIGO CORRECTO ERA ";C$ 


200 STOP 


210 PRINT "TICK...FZZZZ...CLICK...” 


220 PRINT "LO LCUGRASTE” 
230 STOP 
Este listado funcionará en un ZX81. 


Para otros ordenadores, haz estos cambios: 
15 PRINT "INTRODUCE UN NUMERO POSITIVO” 


a INPUT Z 

18 Z=RND(-Z) 

KAOE0 LET C$=CHR$(64+INT(RND(1)%*26+1)) 
M0 LET C$=CHE$(64+INT(RNDFZ6+1)) 


Ampliación del programa 

Puedes hacer que el ordenador imprima 
un mensaje extra si lo aciertas 
correctamente en el último intento. 
Cambia la línea 220, añadiéndole un 
punto y coma: 

220 PRINT "LO HICISTE” P 

y añade una nueva línea 230: 

230 IF G=5 THEN PRINT "POR POCO” 


LET C$=CHR$(37+ INT (RNDFZ6+1)) 


Cómo funciona 
el programa 


Estas líneas imprimen el título y 
las instrucciones. 


Ésta selecciona un número 
entre 0 y 26, lo convierte en una 
letra (el “código secreto”) y lo 
coloca en C$. 


En la línea 90 comienza un 
bucle que repite 4 veces las 
líneas 100-140. 


Pone tu respuesta en G$. 


Comprueba si tu letra es igual 
que el “código secreto” que está 
en C$. Si es así, salta a 210 


Comprueba si la letra del 
código secreto es anterior o 
posterior, en orden alfabético, a 
la tuya, e imprime el mensaje 
apropiado. 

Fin del bucle. Retrocede para el 
siguiente turno. 


Esto se imprime si todos tus 
intentos son fallidos. 


Esto se imprime si tus intentos 
son correctos. 


Rincón de los 
problemas 


A ver si puedes hacer que el 
programa te dé más o menos 
oportunidades de averiguar el 


código. 


Eres un experto en , á recordar un grupo 
comunicaciones láser de letras que ves 
y tu trabajo consiste en " en la pantalla por un 
interceptar los mensajes de : corto espacio de tiempo. El 
Robot y retransmitirlos al Cuartel ordenador te pedirá el nivel de 
General. Esperas un mensaje dificultad, entre 4 y 10. Cuando 
vital codificado. Si consigues hayas tecleado la respuesta, las letras 
retransmitirlo correctamente, aparecerán en la parte superior 
el ataque de Robot será aplastado. izquierda de la pantalla y 

Este juego examina tu desaparecerán enseguida. Tecléalas de 
habilidad obligándote a nuevo, para comprobar si has acertado. 


Recuerda que el 
ZX81 es el único 
ordenador que no 


utiliza el código 
ASCII para los 
caracteres del 
teclado. 


Cómo hacer el juego más difícil 


Puedes cambiar el programa para incluir 
números y signos de puntuación en el mensaje 
secreto. Hazlo cambiando la línea 90 así: 


90 LET MS6=M$+CHRS (INT (RNDF43+21)) 


XAOIO0 LET M6=M$+CHR$(INT(RND(1)443+48) ) 
M90 LET MS=MS+CHRS$ (INT (RNDF43+48) ) 


Duelo 


Estáis espalda contra 
espalda. Das 10 pasos, giras 
y sacas tu revólver. ¿Eres lo 
bastante rápido? ¿Crees que 
puedes disparar primero? 
Tu ordenador imprime los 
números del 1 al 10 para 
representar los 10 pasos, 
espera y entonces imprime: 
¡DESENFUNDA 
FORBASTERO!... Debes est 


A listo Para pulsar una te 
A? ( Jjera desellas) e 
dy mismoánsta 
. Aparecen est 
pre talla. Si.eres: lo 
A EN 
mm. -No-pulses una 
ds, tecla antes de quejaparezca 


a frase ¡DESENEUNDA 
E, RO" o perderás 


nte. 


«e 


ES NS 


A 


2) Añade estas líneas: 


Cómo hacer el juego más difícil 


ici] Si introduces los cambios siguientes, añadirás la 
posibilidad de fallar algunas veces: 
1) En la línea 140 cambia el número 190 por 220. 


2010 
*—20 


30 


CLS 
FRINT "DUELO EN EL OESTE" 
PRINT "ESTAIS ESPALDA CONTRA ESPALDA” 


40 PRINT "DA DIEZ PASOS...” 
50 FOR I=1 TO 10 
x60 FRINT Ij"..*; 
*A0=0 NEXT 1 
£0 PRINT 
x 4090 FOR I=1 TO RNDFZ200 
100 NEXT 1 


AOQÍ10 IF INKEY$<>"” THEN GOTO 160 cos 


120 PRINT "DESENFUNDA FORASTERO..-“¡—_—__—__—— 
*A0130 FOR I=1 TO 5 
20140 IF INKEYS(>"" THEN GOTO 190 
150 NEXT 1 
AL r> y 
TECLADOD 
160 PRINT " EL ES MAS RAPIDO Y DISPARA." 
170 PRINT "ESTAS MUERTO. * 
180 GOTO 210 
190 PRINT "DISPARASTE PRIMERO. *—_—_—_—_——- 
200 PRINT "LE HAS MATADO." 
z10 STOP 


Este listado funcionará en un ZX81. 
Para otros ordenadores, haz estos cambios: 


O | HOME 
A10 PRINT CHR$(147) 
15 PRINT "INTRODUCE UN NUMERO POSITIVO" mes 
4 INPUT Z 
18 Z=RND(-Z) 
xAOQ6S FOR J=1 TO 300:NEXT J 
kxAOIO FOR I=1 TO RND(1)*1000 
0110 IF PEEK(-16384)>127 THEN GOTO 160 
ALLIO GET 1$:1F 1$<>"" THEN GOTO 160 
*x0130 FOR I=1 TO 20 
A130 FOR I=1 TO 50 
0140 IF PEEK(-16384)>127 THEN GOTO 190 
41340 GET 1$;IF I6<>"" THEN GOTO 190 


MA 220 IF RND>.3 THEN GOTO 190 
xA0Q220 IF RND(1)>.3 THEN GOTO 190 
230 PRINT "PERO FALLASTE” 

240 GOTO 90 


Cómo funciona 
el programa 


Este es el bucle que ordena 

al ordenador imprimir 10 

veces un número y dos 
—= Puntos cada vez. 


Este otro bucle hace que el 

ordenador espere. El 

ordenador ejecuta el bucle 
—_ Un número de veces, 

dependiendo del valor de 

RND, sin hacer nada. 

Comprueba si no estás haciendo 
— rampas pulsando una tecla 

antes de que aparezca “¡DISPARA 

FORASTERO”” en la pantalla. 
—= Imprime la señal para que 

pulses la tecla. 


Comprueba el teclado para ver 
ma Si estás pulsando una tecla y, si 

es así salta a la línea 190. (Ten 

en cuenta que la línea 140 está en 

medio del bucle FOR...NEXT. 

Esto hace que el ordenador mire 

el teclado varias veces para 

darte un tiempo razonable que 

te permita pulsar la tecla.) 


Imprime esto si perdiste (o 
ma. LStáS fuera de tiempo o has 
hecho trampa). 


Un bucle de espera extra para 
los ordenadores más grandes. 


Los bucles de espera 
pueden ser escritos en una 
línea, como en la línea 65, 
para todos excepto el ZX8 


— Imprime esto si ganaste. 


Fijate cómo comprueban 
los distintos ordenadores 
el teclado: VIC 20 utiliza 
GET, Apple hace un PEEK 


Rincón de los 
problemas 
Intenta descubrir cómo 


hacer que el ordenador 
se equivoque también. 


Cómo funciona el 


programa 


sa] PRINT "BATALLA DE TANQUES Ésta selecciona un número 
eh k EN EL DESIERTO” entero entre -90 y 90 para la 
: kAO20 LET T=INT(RNDALB1)-90 —— == (¡re C ción . 


*XAOS30 LET D=RND 


Ésta selecciona un número 
entre 0 y 1 para la distancia 
entre el castillo y tú. 


40 FOR G=1 TO 5 
50 PRINT "DIRECCION (-90 A 90)?” 


60 INPUT Ti Pide tus respuestas y las pone 
70 PRINT "ELEVACION (0 A 90)?" enAyB. 
80 INPUT B 


Utiliza tu ángulo de elevación 
90 LET DI=SIN(2%(B/18043.1410 ————————— == Para Calcular la distancia del 

misil enviado. (La respuesta 
estará entre 0 y 1.) pa 


100 IF ABS(T-T1)<2 AND ABS(D-D1)<.05 THEN GOTO 220 == Si y 
dirección estaba entre 2 
grados y tu distancia entre 
0,05, entonces has dado al 
castillo. El programa salta a la 
línea 220 para decírtelo. 


ABS toma el valor 
“ ” , 
absoluto” de un número; 
esto significa que 
ignora los signos + o - 


110 PRINT "IMPACTO DE MISIL ”; Compara tu ángulo de 
120 IF T1XT THEN PRINT "A LA IZQUIERDA”; dirección con el número 


130 IF T1>T THEN PRINT "A LA DERECHA”; elegido en la línea 20 e 
imprime el mensaje apropiado. 


Decide si 


190 IF ABS(D1-D)>.05 AND T1<>T THEN PRINT " Y *; 


“ »” 


FORW imprimir “y” comparando la 
a Un punto y coma al final de una sentencia distancia recorrida por tu misil 
¡7 yw PRINT dice al ordenador que no se vaya a con el número elegido en la 
[ E 93D > la línea siguiente a imprimir el próximo dato línea 30. 
é Ss ÉS 150 IF D-D1>.05 Th SÉMASIADO CERCA” A o Imprime un mensaje 
e 160 IF Di-D>.05 THEN PRINT "DEMASIADO LEJOS”; si tu disparo era 
170 PRINT demasiado largo 
180 NEXT G o demasiado corto. 
190 PRINT "UN DESASTRE -FALLASTE" 1 E ñk did 
200 PRINT "RETIRADA EN DESGRACIA” a 
210 STOP 
220 PRINT "*KABOOOMMME" ñ ; dh a 
230 PRINT "LO LOGRASTE!!!" mprime:esto Bos ganado: 
240 STOP 


81 y el Spectrum 
necesitan LET. Puedes 

quitar esta palabra para 
otros orge 


Este listado funcionará en un ZX81. 
Para otros ordenadores, haz estos cambios: 


+1 PRINT "INTRODUCE UN NUMERO POSITIVÍ 


17 INPUT Z 

18 Z=RND(-Z) 
kAO20 LET T=INT(RND(1)*181)-90 
XAOZ0 LET DSRND(L) 


Rincón de los 
problemas 


¿Sabrías añadir la posibilidad de que 
los robots te vean y te disparen antes 
de que tú dispares los cinco tiros? 


11 


El rey está librando una fiera y 
sangrienta batalla contra su 
mortal enemigo, el barón 
traidor. Tú eres uno de los 
arqueros del rey y en este 
momento estás arrastrándote 
detrás de los arbustos del 
exterior del castillo del barón, 
disparando a sus hombres en 
cuanto éstos asoman la cabeza. 

Tu ordenador imprimirá una 
línea que contiene 8 puntos y un 
0. Las teclas del 1 al 9 
corresponden a las posiciones 
del 0 en la línea. Tienes muy 
poco tiempo para pulsar la tecla 
correcta y darle al 0 antes de 
que desaparezca. 


dd y US 2. 1 As) 


O 


0 DO MES 


Cómo hacer más rápido el juego 


Puedes hacer que el ordenador trabaje más rápido 
o más lento en este juego. Para ello, tienes que 
cambiar el último número en la línea 110. Un 
número menor hará que el juego sea más rápido. 


Pone tu puntuación a cero 
para empezar el juego. 


Principio de un bucle que te 
da 10 intentos. 


Crea una cadena vacía (R$). 


Selecciona un número entre 
1 y 9 y lo pone en T. 


Realiza un bucle 9 veces, 
añadiendo un carácter a la 
cadena R$; el carácter es un 

0 para la posición 
correspondiente al número 

en T y un punto para las demás. 


Imprime la cadena. 


Repite un bucle un número de 
veces para ver si estás 
pulsando una tecla (el final del 
bucle está en la línea 140). 


Comprueba si estás 
pulsando la tecla correcta. 
Salta a la línea 170 si es así. 


Imprime esto si pulsaste la 
tecla tarde o equivocadamente, 
y salta a la 190. 


Incrementa tu puntuación en 1. 


Vuelve a la línea 30 para otro 
intento. 


Imprime tu puntuación a los 
10 intentos. 


Observa cómo funcionan los 
marcadores en este programa 
(líneas 20 y 180). Intenta añadir 
esto a otros programas. 


HE ANTI 
y ÓS 


NES 


Los robots invasores || 


Debes actuar 
rápidamente. Robots 
invasores de todo tipo se 
aproximan. Tienes un 
arma especial para cada 
tipo de robot. 

Los símbolos para cada 
robot aparecerán en la 
pantalla. Pulsa 
rápidamente la tecla 
apropiada —¡Cuidado!, 
para algunos, tendrás que 
utilizar también la tecla 
“shift'— y mira a ver 
cuántos robots puedes 
destruir. 


—/ 


Cómo hacer más 
rápido el juego 


Si deseas aumentar la rapidez 
del juego, tienes que cambiar el 
último número de la línea 140 
por uno menor. 


Moviendo el cursor 


Tu ordenador puede tener un 
sistema más sencillo para 
mover el cursor (ver líneas 
100-130). Mira el manual y 
compruébalo. 


Rincón de los problemas 


Estos son los 
robots más 
, peligrosos. 


Mecanos Tintroides Escrapiones Cabeza de cable Ojos de acero 


¿Puedes cambiar el programa de forma que consigas 100 puntos por 
cada uno de estos robots y sólo 10 puntos por cualquiera de los demás? 


El arma secreta 


Quieres destruir el cuartel general de los robots, que está en algún 
lugar subterráneo del desierto oriental de la E.R.U. 

Tienes una nueva arma secreta con la que puedes abrirte paso 
silenciosamente por las sólidas rocas, pulverizando cualquier cosa que 
se ponga en tu camino, pero el cuartel está hábilmente oculto. Todo lo 


que puedes hacer es tomar tu arma ciegamente y tratar de encontrar un lá 


lugar que esté cerca del objetivo. Tu ordenador te preguntará el nivel 
de dificultad (el mínimo permitido es 4) y entonces te pedirá las 
coordenadas X e Y del objetivo. (Teclea estos datos separadamente, 
pulsando RETURN o ENTER después de cada uno.) 

Para conseguir una pista de los posibles valores de X e Y, mira 
atentamente el listado del programa. 


SQR 
extrae raíces 
cuadradas. 


R ¿Puedes hacerlo funcionar 
añadiendo el siguiente sistema de 
puntuación?: 

h Suma 1 punto si das cerca. 
Suma 10 puntos por un impacto. 


¡Escapa! 


Los robots te han capturado, tienen en su poder tus armas y te han 
amordazado. De pronto, recuerdas que todavía tienes tu sonar de puls 
que puede ser sintonizado para producir sonidos de cualquier frecuenci 
pudieras encontrar la frecuencia de resonancia de tus robots guardianes, 
ellos vibrarían y se desplomarían. 

Debes tener cuidado para no usar frecuencias que sean demasiado bajas 
o el edificio vibrará y caerá sobre ti. Si es demasiado alta, conseguirás un 
terrible dolor de cabeza que te impedirá escapar. (Mira atentamente el 
programa para encontrar pistas de las distintas frecuencias que puedes intentar.) 


Cómo funciona el programa | 
2910 CLS Elige un número entre 1 y 100 
20 PRINT "ESCAPA" para la frecuencia de los 
XAO30 LET FSINT(RNDIL 0041) rc o robots y lo pone en F. 


40 LET L=1 Pone 1 en L y H. Éstos se usan 
SO LET H=1 si la frecuencia que selecciones 
es demasiado baja o demasiado 


alta (ver líneas 170-190 y 230-250). 
60 FOR G=1 TO 5 Comienzo del bucle que te 


na permite tener 5 intentos. 

70 PRINT "INTENTO?"; : 

80 INPUT Fl Y ———_—— Te pide respuesta y la pone en Fl. 
Comprueba si tu respuesta 

90 IF ABS(F-F1)<5 THEN GOTO 290 om: ostá a una distancia de 5 de F. 

Si es así, salta a 290 e imprime 

LO HICISTE. 

Salta a 170 si tu respuesta es 

tan baja que es menor que F 

en más de 40. 

110 IF F1-F>40 THEN GOTO 230 orcas Salta a 230 si tu respuesta es 
tan alta que es mayor que F 


100 IF F-F1>40 THEN GOTO 170 


120 PRINT "NO HAY EFECTOS VISIBLES" en más de 40. 

130 NEXT 6 Imprime esto si tu respuesta 

140 PRINT "TARDASTE DEMASIADO." estaba a una distancia de 40 

150 PRINT "LA FREQ. ERA ";F de F y regresa para un nuevo 

160 STOP turno. Si has utilizado todos los 

170 IF L=2 THEN GOTO 210 turnos, imprime la respuesta. 

180 PRINT "DEMASIADO BAJO. . . CUIDADO" Comprueba el valor de L. La 

190 LET L=2 primera vez que esta parte del 
programa se ejecuta, L es 1. De 

2 a EDIFICIO SE DERRUMBA" O or apio un 

220 STOP mensaje de aviso, cambia L a 2 y 
regresa para otro turno. 

230 IF H=2 THEN GOTO 270 La siguiente vez que la linea 

240 PRINT "DEMASIADO ALTO, ..HUY!" 170 se ejecuta, el programa 

250 LET H=2 salta directamente a 210, 

260 GOTO 130 diciéndote que has perdido. 

270 PRINT "TE DUELE LA CABEZA - TE RINDES" Estas líneas comprueban H de 

280 STOP mismo modo para darte un 

290 PRINT "LO HAS HECHO" aviso la primera vez, 

300 STOP diciéndote que es demasiad 


alto; y te dicen que perdiste 


Este listado funcionará en un ZX81. 
segunda vez. 


Para otros ordenadores, haz estos cambios: 


O 10 HOME 
A10 PRINT CHR$(147) 
15 PRINT "INTRODUCE UN NUMERO POSITIVO" 
Hi INPUT Z 
18 Z=RND(-Z) 
18 4030 LET F=INT(RND(1)*+100+1) 


Rincón de los 
problemas 


Los tres robots 
guardianes tienen cada 
uno su propia frecuencia 
de resonancia. No puedes 
escapar hasta que hayas 
encontrado las tres. ¿Qué 
cambios tendrás que 


Cómo hacer el juego 
más difícil 

Cambia el 5 en la línea 90 
por un número menor. 
Esto significa que tienes 
que acercarte más a F 
para ganar. Puedes 
también incrementar el 
rango posible de F, 
cambiando 100 en la línea 
30 por un número mayor. 


ad 


XxAO30 LET V=INT(RNDX11-5) 


*aA0 40 


aceleras, él se os rezagado, tú dismir uyes la velocidad. 

conseguir ponerte a su altura y, entonces, dispararle, espera 

que él no sea capaz de dispararte a su vez y alcanzarte primero. 
Utiliza las teclas A para acelerar, D para decelerar y F para 


disparar. Tu ordenador te dirá cuál es tu velocidad y posición en 
relación con la del pirata. Tendrás que estar listo para pulsar las 
teclas apropiadas tan pronto como teclees RUN. Sigue pulsando A 
y D hasta que estés a su altura y, en ese momento, dispara. 


AQ1O0 CLS 


20 PRINT "DUELO ENTRE PIRATAS” 


70 PRINT "TU ESTAS ”; 

S0 IF SO THEN PRINT "DETRAS” 

90 IF S>0 THEN PRINT "DELANTE" 

100 IF S=0 THEN PRINT "IGUALADO" 
110 PRINT "ESTAS LLENDO *; 

120 IF V>0 THEN PRINT "MAS RAPIDO” 
130 IF V<0O THEN PRINT "MAS LENTO” 


140 IF V=0 THEN PRINT "A IGUAL VELOCIDAD” 


AQ150 LET I$=INKEYS 


160 IF I$="A" THEN LET V=V+1 
170 IF 1$="D" THEN LET V=V-1 
180 IF I$="F" AND S=0 THEN GOTO 250 


50 IF ABS(S)>20 THEN GOTO 230 mms 
A060 CLS 


Cómo funciona el programa 


Elige un número entre -5 y 
+5 para tu velocidad en 
relación con la del pirata y 
la pone en V. 


Elige un número para medir 
tu distancia respecto al 
pirata y lo pone en S. Esta 


es negativa al comienzo, low, 2000 
que significa que estás 
detrás de él. € 


Comprueba si la distancia 
entre los dos es mayor de 
20. Si es así, el ordenador 
salta a 230 para decirte que 
lo has perdido de vista. 


Comprueba los valores de 
S y V e imprime tu posición 
y velocidad con respecto al 
pirata. 


Mira si estás pulsando una tecla 
y, si es así, cuál. Si es A, tu 
velocidad se incrementa en 1. Si 
D, tu velocidad disminuye en 1. 
Si estás pulsando F y S=0 (es 
decir, estás a su altura) 
entonces salta a 250. (Si S no es 
0, entonces si pulsas F no 
ocurrirá nada.) 


190 LE sy ————————————————= +++. a] cula la nueva dielantia a 


*A0200 FOR I=1l TO 20 
210 NEXT 1 


220 GOTO 50 
230 PRINT "LE PERDISTE DE STA 
240 GOTO 330 


250 IF ABS(V)<2 THEN GOTO 290 


260 PRINT "SOLO CONSEGUISTE ” 
270 PRINT "ABOLLARLE. ” 
280 GOTO 40 


*AO 290 IF RND>.7 THEN GOTO 320 
300 PRINT "LE DERRIBASTE” 
310 GOTO 330 


320 PRINT "EL DISPARO PRIMERO" 
330 STOP 


Este listado funcionará en un ZX81. 


0 10,60 HOME 
410,60 PRINT CHR$(147) 


15 PRINT "INTRODUCE UN NUMERO POSITIVO” 


Hi INPUT Z 
18 Z=RND(-Z) 
XAO 30 LET V=INT(RND(1)%11-5) 


Cómo hacer más fácil el juego 
Debes buscar el modo de simplificar el 
juego. Para hacerlo de una forma simple, 
añade estas dos líneas. Te permitirán 
ver las posiciones relativas de los dos 
aviones impresas en la pantalla. 


195 IF ABS(S)>10 THEN GOTO 200 

196 PRINT TAB(W/2);"EL” 

197 PRINT TAB(S+W/2)5”TU” 

Sustituye w por el ancho de tu pelis: 


- Para otros ordenadores, haz estos cambios: 


entre vosotros. 


los signos + y 
papa salta a 290.. 


Imprime un mensaje si E 
velocidad era mayor que 2 
cuando disparaste. Retorna 

a 40 para comenzar de nuevo con 
otro valor para S. 


Aplica un test aleatorio para ver 
si disparaste antes que el pirata. 


Imprime un mensaje, dependiendo 
del resultado del test en 290. 


XAOQÍ0 LET S=-INT(RND(1)43+1) 
0145 1$="* 
0150 IF PEEK(-16384)>127 THEN GET 15 
A150 GET 1$ 

XAO0200 FOR I=1 TO 200 

xA0290 IF RND(1)>.7 THEN GOTO 320 


Rincón de los 
problemas 


El test aleatorio de la línea 290 está 
hecho para ayudarte. ¿Cómo puedes 
cambiarlo de forma que las posibilidades 
de ganar sean iguales? 


El bombardero, 
As 


Te encuentras solo en una misión de 
bombardeo supersónico sobre los E.R.U. 
Tu ordenador muestra gráficos de la 
población robot basados en fotografías 
infrarrojas retransmitidas vía satélite. 
Sólo tienes tiempo para atacar uno de 
los cinco objetivos, de modo que debes 
seleccionar rápidamente el que tenga la 
población más alta de robots y lanzar 
una de tus “bombas corrosivas” sobre 
él. (Éstas contienen una sustancia que 
puede disolver el cuerpo de un robot en 
segundos.) 

Para lanzar una bomba, pulsa la tecla 
numérica que corresponda con el 3 
número que está al lado del gráfico de la. 
población con más robots. Si hay dos "3d 
iguales, elige la que tenga el número > 
más bajo. de 

¿Serás un héroe « 
unes 


AOQÍ1O CLS 


0 —20 PRINT "BOMBARDERO SUPERSONICO” 


30 DIM B(5) 


40 LET 5=0 


60 LET M=1 


70 FOR Imi TO 5 
*A0680 LET B(1)=INT(RNDFIO+1) 
90 IF B(1I)>B(M) THEN LET M=1 
100 NEXT 1 
A0110 CLS 
120 FOR I=1 TO 5 
130 PRINT 1; 
| 190 FOR J=1 TO B(1) 
ú 150 PRINT "4%"; 
160 NEXT 3 
170 PRINT 
180 NEXT 1 
40190 FOR I=1 TO 643 
5200 LET I$=INKEYS 
210 
220 


Cómo funciona el programa 


Se crea B como una “matriz de 
variables”. Puede contener 5 
valores diferentes a la vez: B(1), 
ua B(2), B(3), B(4) y B(5). 


Di Coloca a cero el marcador. 


Comienzo del bucle para 10 
7 intentos en cuenta atrás (es 
decir, G=10 para el 1%, 9 para 
el 22, etc.). Esto permite que 
el bucle de espera en la línea 
190 te dé más tiempo en los 
primeros intentos. 

Coloca el número del 

gráfico de la población más 
elevada a 1 para comenzar. 


: Elige 5 números y los 
coloca en la matriz B(1) a 
B(5). Mira cuál es el mayor 
y cambia M por el 


correspondiente. 

Imprime los 5 números en 
la pantalla en forma de 
líneas de estrellas. 


IF I%(>"" THEN GOTO 270 | 
NEXT 1 


Mira si estás pulsando una 
tecla y se va a la 270 si es así. 


Si no la pulsas a tiempo imprime 


230 PRINT "DEMASIADO TARDE” DEMASIADO TARDE y regresa 
*xA02%0 FOR J=1 TO 10 al próximo turno. 

250 NEXT J Comprueba si la tecla que 

260 GOTO 280 pulsaste era correcta; si es así, 

270 1F VAL(1$)=M THEN LET S=9+] —ooo.... se incrementa tu marcador en 1. 


280 
290 
300 
310 


NEXT 6 - == Vuelve atrás para otro turno. 
PRINT "ACERTASTE ";S;” OBJETIVOS DE” 
PRINT "ALTA DENSIDAD ENTRE 10” 
IF S=10 THEN PRINT "ERES UN HEROE” 
320 IF S<10 THEM PRINT "MAL - FALLASTE" 
330 STOP 
Este listado funcionará en un ZX81. 
Para otros ordenadores, haz estos cambios: 
010,110 HOME 
A10,110 PRINT CHR$(197) 
15 PRINT "INTRODUCE UN NUMERO POSITIVO" 
A$17 INPUT Z 
18 Z=RND(-Z) 


Imprime el marcador 
después de 10 intentos. 


KAOE0 LET B(1)=INT(RND(1)%10+1) 
KAO1I0 FOR I=1 TO G%*30 

0195 1$="" 

4200 GET 1$ 

0200 IF PEEK(-16384)>127 THEN GET 1$ 
XAO2%0 FOR J=1 TO 400 


PRES 


Para cambiar la velocidad 


Rincón de los 
problemas 


Para darte más oportunidades de 
pulsar una tecla cada vez, cambia el 
último número en la línea 190 por un 
número mayor. 

Cuando quieras mejorar tu habilidad, 
baja el número en la línea 190. 


¿Cómo puedes hacer para que el 
| ordenador te dé más de 5 objetivos 
para elegir cada vez? 


Iceberg 


El casco de tu barco está 
seriamente dañado y no tienes 
armas para defenderte. Mientras 
regresas a casa, tienes que navegar 
lentamente a través de aguas 
traicioneras repletas de icebergs, y 
una nave enemiga te persigue. Este 
barco puede detectar tu barco 
pero no a los icebergs, así que tu 
mejor oportunidad es intentar 
atraerlo hacia uno de ellos. 

Tu ordenador imprimirá una 
cuadrícula mostrando la posición 
de tu nave (Y), el enemigo (Z) y los 
icebergs (*). Puedes moverte un 
espacio al Norte, Sur, Este u Oeste 
cada vez. El enemigo se mueve 
hacia ti por la ruta más directa 
(incluso en diagonal). Si llegas a 
una de las 8 posiciones adyacentes 
al enemigo, serás capturado, y si 
chocas contra un iceberg, te hundirás. 


Rincón de los problemas 


¿Podrías hacer que la cuadrícula fuese 
mayor? 

Después puedes intentar añadir 
también más icebergs. 


Los ordenadores deciden si 
una expresión es verdadera o 
falsa. Si la respuesta es falsa, 
dan el valor 0. Si es verdadera, 
algunos ordenadores dan el 
valor +1, otros - 1; por esto, las 
líneas 290-320 tienen que ser 


cambiadas en algunos 
ordenadores. 


El muro del brujo 


El muro que el brujo construyó para rodear su fortaleza secreta no es un 
muro ordinario, ya que las piedras con las que está hecho son personas 
petrificadas por la furiosa y penetrante mirada del hechicero y, además, 
puede moverse. Si tú pudieras abrir un agujero a través de él con tu 
poderosa catapulta que lanza gigantescas rocas, destruirás los poderes 
mágicos del brujo y las piedras volverían a ser de nuevo personas. Pero hay 
problemas: el brujo está trabajando en un conjuro para parar los misiles en 
el aire y hacerlos regresar al lugar de donde partieron. De vez en cuando, él 
puede hacerlo funcionar... 

¡Si no tienes éxito, acabarás convertido en una piedra más del muro del 
brujo! 


4010 cLs 
20 FRINT "EL MURO DEL BRUJO" 
PRINT 
PRINT "QUIERES ALGUNA AYUDA?” 
INPUT 18 
IF 1$(1)="S” THEN GOSUB 740 
PRINT "DIFICULTAD?" 
PRINT "(S=FACIL, 1=DIFICIL)” 
INPUT 0 
DIM 4Y(8,8) 
DIM E(8) 
FOR Y=1 TO 8 
FOR X=1 TO 4 
*a0mid0 LET W(X,Y)=20 
150 NEXT x 
160 NEXT Y 
170 LET 2Z=0 
180 FOR C=1 TO 3 
190 LET D=INT(RNDXSO+21) 
200 GOSUB 3430 
210 IF Z=1 THEN GOTO 1150 
220 PRINT "ESTAS A ";D;5”" METROS DE DISTANCIA” 
*A0730 LET W=INT(RNDF91)-26 
230 IF W=0 THEN PRINT "NQ HAY VIENTO" 
250 IF W<0 THEN PRINT "VIENTO A LA DERECHA" 
260 IF W>0 THEN PRINT "VIENTO A LA IZQUIERDA” 
270 PRINT "DAME ELEVACION (1-90)* 
280 INPUT A 
290 PRINT "DAME VELOCIDAD” 


INPUT Y 
LET A=A/180*3.1316 
LET H=TAN(A)F(D-W) - (5% (D-W) 42) / (VFCOS(A) )FF2 
LET H=INT(H/0) 
IF H>0 AND H<9 THEN GOSUB 540 
IF H<1 THEN PRINT "EL TIRO FUE DEMASIADO CORTO” 
IF H>8 THEN PRINT "EL TIRO FUE DEMASIADO LEJOS” 
IF RND>.2 THEN GOTO 200 
PRINT "EL MURO SE HA MOVIDO. ” 
NEXT € 
400 PRINT "TE HAS CONVERTIDO" 
410 PRINT "EN PIEDRA.” 
420 STOP 


*40430 FOR I=1 TO 30 CAMBIA ** EN LA LINEA 320 
440 NEXT 1 POR 1 PARA APPLE Y MSX O 
POR + PARA VIC Y SPECTRUM. 
203450 CLS 


360 PRINT 
470 FOR Y=8 TO 1 STEP-1 
480 FOR X=1 TO 8 
xa20m490 PRINT CHR$(W(X,Y))3 
5:00 NEXT X 
510 PRINT 
5:20 NEXT Y 
5:30 RETURN 
540 GOSUB 650 
550 LET WIE(H)-1,H)=0 
5:60 IF VACOS(A))50 THEN LET W(E(H)-2,H)=0 
x*a0m570 IF RND>.5 AND H<)1 THEN LET W(E(1),1)=20 
x40580 IF RND>.5 AND H>5 AND H<8 THEN LET W(E(H+1)-1,H+1)=0 
590 IF H>1 THEN GOTO 630 
600 FOR Y=2 TO 8 
x*a0610 IF RND<.5 THEN LET W(E(Y)-1,Y)=0 
620 NEXT Y 
630 GOSUB 650 
640 RETURN 
650 FOR Y=1 TO 8 
660 LET X=1 
670 IF W(X,Y)=0 OR X=8 THEN GOTO 700 
680 LET X=X+1 
690 GOTO 670 
700 LET ElY)=x 
710 IF X=1 THEN LET Z=1 


Continúa en la página siguiente 


El muro del brujo (continuación) 


720 NEXT Y 

730 RETURN 

740 PRINT "ESTAS ATACANDO EL" 

750 PRINT "ULTIMO REDUCTO DE UN * 

760 PRINT "NOTORIO MAGO QUE SE ” 

770 PRINT "ENCUENTRA DETRAS DE UN " 

780 PRINT "MURO SIN FIN DE PIEDRA.” 

790 PRINT "CADA PIEDRA ES UNA DE SUS” 
800 PRINT "ANTERIORES VICTIMAS.” 

el0 PRINT "SOLO TU PUEDES ATACARLE Y" 
820 PRINT "LIBERARLAS DE SU " 

830 PRINT "MAGIA.” 

€40 PRINT "TU DEBES DESTRUIR EL MURO" 
850 PRINT "USANDO CATAPULTAS," 

860 PRINT "PERO TEN CUIDADO, EL BRUJO” 
870 PRINT "TIENE EL PODER DE MOVER EL” 
880 PRINT "MURO HACIA DELANTE Y * 

€90 PRINT "DETRAS, Y OCASIONALMENTE DE" 
900 PRINT "RECHAZAR TUS TIROS * 

910 PRINT "DE VUELTA A TI." 

920 GOSUB 1110 

930 PRINT "DESPUES DE CADA TIRO, SE TE" 
940 PRINT "MUESTRA UNA SECCION DEL MURO" 
950 PRINT "EN LA QUE SE INDICA LOS" 

966 PRINT "DESTROZOS QUE HAS HECHC. * 
970 PRINT "FIJATE QUE HAY MUCHAS *" 

980 PRINT "PIEDRAS CLAVE QUE HACEN” 

990 PRINT "MUCHO DESTROZO Y TAMBIEN," 
1000 PRINT "QUE CUANTO MAS RAPIDO SE” 
1010 PRINT "MUEVE EL TIRO HORIZONTALMENTE”* 
1020 PRINT "MAS DESTROZO SE HACE.” 

1030 PRINT "PUEDES DESTRUIR AL BRUJO" 
1040 PRINT "PARA SALVAR A LOS MILES DE" 
1050 PRINT "CUERPOS ATRAPADOS...” 

1060 GOSUB 1110 

1070 RETURN 

1110 PRINT "PULSA UNA TECLA "; 


Continúa en la página siguiente. 


' 


201120 IF INKEYS="" THEN GOTO 1120 
a01130 CLS 
1140 RETURN 
1150 PRINT "LOGRASTE HACER UN” 
1160 PRINT "AGUJERO EN EL MURO DEL" 
1170 PRINT "BRUJO. - HAS DESTRUIDO” 
1180 PRINT "SUS PODERES MÁGICOS Y” 
1190 PRINT "HAS LIBERADO A SUS VICTIMAS" 
1200 STOP 


Este listado funcionará en un ZX8L1. 
Para otros ordenadores, haz estos cambios: 


xa0cambia todos los RND por RND(1) 
e10,450,1130 HOME 
410,450,1130 PRINT CHR$(147); 
15 PRINT "INTRODUCE UN NUMERO POSITIVO" 
*x417 INPUT Z 
18 Z=RND(-Z) 
x4060 IF LEFTS$(1$,1)="S" THEN GOSUB 740 
*a0m140 LET W(X,Y)=29 
*a0330 FOR I=1 TO 200 
E] *a2a0m490 PRINT CHR$(W(X, Y) +32); 
¿8 m570 IF RND>.S AND H<>1 THEN LET W(E11),1)=29 
*40570 IF RND(1)>.5 AND H<>1 THEN LET W(E(11),1)=29 
01120 GET 1$ 
A1120 GET 1$:1F I$="" THEN GOTO 1120 


Cambios que puedes hacer en el juego 


Puedes hacer que el muro sea más grueso, cambiando las siguientes líneas: 
Línea 100: cambia el primer número por uno más alto; por ejemplo, 10. 
Línea 130: resta 4 del número que usaste en la línea 100 y pon la 
respuesta al final de la línea 120 (en este caso, utiliza 6). 

Línea 480: cambia el último número por el que usaste en la línea 100 (10 
de nuevo en este caso). 

Si haces que el muro sea mucho más grueso, probablemente necesitarás 
más tiempo para hacer el agujero. 

Cambia el último número en la línea 180 por uno mayor para hacer esto. 


Misil 

Este juego es diferente a los demás 
que se incluyen en este libro, porque 
utiliza gráficos. Como los 
ordenadores cambian mucho el 
modo de trabajar con gráficos, se ha 
incluido un programa distinto para 
cada uno. Lee las instrucciones en 
esta página para ver cómo se juega 
y después busca la versión que 

, corresponda a tu ordenador. 


A Misil: versión para 
Commodore 64 


PEGONT DEHRECO 


CHRE (141 


1984+3*10- 


Late THEN 


240 


1984+3*10-Y 
ABS(I-I1O)%=1 AND 


pe RINT 


FOERE 34276,321 FOKE 


(JA, 


JIAZO6Ó» 


Cómo jugar con Misil 


Tienes tres bases de misiles, cada una 
de ellas capaz de lanzar un misil. 
Cuando veas aproximarse un avión, 
debes averiguar su altura y su velocidad 
y dispararle tus misiles de uno en uno. 

Estos son lanzados pulsando una 
tecla. Al pulsar la primera vez, lanzas los 
de la izquierda, la segunda vez los de en 
medio y la tercera vez los de la derecha. 

¡A ver cuántos aviones enemigos 
puedes derribar! 


234 TO S00: NEXT 

CA E IFE7ZOLO7PUERE: 54296,0 
EDO 

SQ0 FPOKRE 1983+1-Fx40, 

210 POERE 1984+1-1%40, 

2d RETURN 


TO e RND (1) /2+.5 
E 00 
13 
E= "0" OR ONO THEN 170 
15 
1 ¿08 21 TOS 
80 1F F()=0 THEN 220 
FOKE Y(J)40, 32 


Y (3) 


P THEN 280 


CHRE (147) "FALLO! 10" 
ERD 
FRINT CHRE (147) "ACIERTO 110 


13 


Misil: versión para * MSX 


10 CLS 

15 FRINT "INTRODUCE UM NUMERO POSITIVO” 
17 INPUT Z 

18 Z=RND(-Z) 

20 SCREEN 2,1 

30 DIM Y(3),F(3) 

40 A$="” 

SO FOR J=1 TO 8 

60 FEAD A 

70 ARB=AGB+CHRSE(A) 

0 NEXT J 

90 SPRITES(1)=A$ 

110 N=1:M3=5 

120 PS=INT(RND(1)%6+4) 

130 P=INT(RND(¡)*135+11) 

140 G0OSUB 400 

150 FOR I=PS TO 244 STEP PS 

160 X=1:Y=147-P:PUT SFRITE 1,(X,Y),15 
170 F$=INKEYS 

180 IF Fé$="" OR N>3 THEN 210 

190 F(N)=1 

200 N=N+1 

210 FOR J=1 TO 3 

215 C=4:G0SUB 350 

220 IF F(J)=0 OR Y(J)>1495 THEN 270 
230 Y(J)=Y(J)+ME 

235 C=15:GOSUB 350 

290 X=J%70-1 

250 Y=P-Y(J) 

260 IF X>-1 AND x<15 AND Y>-9 AND Y<5 THEN 320 
270 NEXT 

280 NEXT 

290 SCREEN O:CLS: COLOR 15,4,4 

300 PRINT "FALLO!" 

310 END 

320 SCREEN O: CLS:COLOR 15,4,9 

330 PRINT "ACERTASTE” 

340 END 

3850 COLOR C,4 

360 LINE (70%J,158-Y (J))- (70%J,159-Y(J)) 
370 RETURN 

400 FOR J=1 TO 3 

410 LINE (20%J-5,159) - (70%J+5,159) 
920 NEXT 

430 RETURN 

450 DATA 192,224,2594,255,56,48,0,0 | 


Misil: versión para ZX Spectrum 


10 
15 


CLS 
INVERSE O 
DIM Y (3) 
DIM F(3) 
LET N=1 
LET MS=8 
LET PS=INT(RNDX6+5) 
LET P=INT(RNDF140+20) 
GOSUB 400 
FOR I=PS TO 240 STEP PS 
LET C=1: LET x=I-PS 
GOSUB 300 
LET C=0; LET »x=1 
GOSUB 2300 
LET Fé$=INKEVS 


460 
470 
480 
490 
300 
Gio 


IF F$="" OR N>3 THEN GOTO 170 


LET FiN)=1; LET N=N+1 
FOR J=1 TO 3 
LET C=1: GOSUB 350 


IF F(J)=0 OR Y(J)>148 THEN GOTO 240 


LET Y(J)=Y(J)+MS 
LET C=0: GOSUB 350 
LET x=J*6%4-1: LET Y=P-Y(J) 


IF X>-1 AND xx12 AND Y<x10 AND Y>-S THEN GOTO 280 


NEXT J 
NEXT 1 

PRINT AT 0,05;”"FALLO*” 
STOP 

PRINT AT 0,0; "ACERTASTE! !" 
STOP 

INVERSE C 

PLOT X,P 

DRAW 0,8: DRAW 3,-6 
DRAW 8,0: DRAW 2,-2 
DRAW -13,0: RETURN 
INVERSE € 

PLOT 644J3+9,Y(3)+4 
DRAW 0,6: DRAW -2,-2 
DRAW 2,2: DRAW 2,-2 
RETURN 

FOR A=65 TO 66 

FOR B=0 TO 7 

READ € 

POKE USR CHR$(A)+B,C 
NEXT B 

NEXT A 


FOR J=1 TO 3 

PRINT AT 21,8*J;"GAB]” 

NEXT J 

RETURN 

DATA 0,0,0,0,259,2599,127,63 
DATA 0,252,2592,2024209,2009, 
259,252 


EQ... oro poo» oo» O o po oo AA AAA od. 


En 
la E 
l 


Misil: versión para VIC 20 


10 FRINT CHR$(147)CHR$(5); 
20 FOKE 36879,8 

60 DIM Y(3),F(3) 

70 N=1:M9=2 

PO PEINTIRNDI1)9+2)%2 

110 FOR I=1 TO 21 STEP RND(1)/2+,5 
120 GOSUB 300 

130 GET F% 

140 IF F$="" OR N>3 THEN 170 
150 FIN)=-1 

160 N=N+1 


EXA 


170 FOR J=1 TO 3 

180 IF F(J)=0 THEN 220 

190 POKE 8164+J*5-Y(J)X22,32 

200 IF Y(1J)=22 THEN 240 

210 Y(J)=Y(J)+1 

220 POKE 8164+J45-Y(J)*22,30 

230 IF ABS(I-J*5)<=1 AND P=Y(J) THEN 280 
240 NEXT 

250 NEXT 

260 PRINT CHR$(197);"FALLO" 

270 END 

280 PRINT CHR$(147);"ACERTASTE” 
282 POKE 36877,220: POKE 36878, 15 
289 FOR K=1 TO 500: MEXT 

286 POKE 36877,0; POKE 36878,0 
290 END 

300 POKE 8163+1-PX22,32 

310 POKE 8164+1-PXx22,121 

320 RETURN 


Nota especial para los usuarios del Spectrum: 

La conversión usada para mostrar los caracteres gráficos en la 
sentencia PRINT es como sigue: 

El carácter [ significa pulsar la tecla GRAPHICS una vez. Después 
pulsa las teclas siguientes (shift para el ZX81). Pulsa la tecla 
GRAPHICS de nuevo cuando se muestre |. 


Misil: versión para Apple 


10 

ZO 

30 

40 

SO 

60 

70 

0 

P0 

100 
110 
120 
130 
190 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
300 
310 
320 
cicle) 
390 
350 
360 
370 
400 
410 
420 
430 


HOME 
HGR 
HCOLOR=3 
DIM Y1(3),F(3) 
N=1;M5=5 
FS=INT(RND(1)%6+49) 
P=INTIRND(1)+135+11) 
GOSUB 400 
FOR I=PS TO 265 STEP PS 
A=I-PS:Y=159-P:C=0; GOSUB 300 
x=I:C=3; GOSUB 300 
F$=""; IF PEEK(-16384)>127 THEN GET F$ 
IF Fé$="" OR N>3 THEN 160 
FIN)=1 
N=N+1 
FOR J=1 TO 3 
C=0: GOSUB 350 
IF F(J)=0 OR Y(J)>145 THEN 230 
Y(D)=Y(J)+MS 
C=3: GOSUB 350 
A=J*20-1:Y=P-Y(J) 
IF X>-1 AND x<15 AND Y>-9 AND Y<5 THEN 270 
NEXT 
NEXT 
VTAB 22: PRINT "FALLO" 
END 
VTAB 22: PRINT "ACERTASTE!!" 
END 
HCOLOR=C 
HPLOT X,Y TO x,Y-8 
HPLOT TO X+3,Y-2: HPLOT TO X+12,Y-2 
HPLOT TO X+14,Y3 HPLOT TO X,Y 
RETURN 
HCOLOR=C 
HPLOT 70%J,158-Y(J) TO 70%J,154-Y(J) 
RETURN 
FOR J=1 TO 3 
A AE REF 
NEXT 
RETURN 


Misil: versión para ZX81 


10 CLS 

20 DIM Y(3) 

30 DIM F(3) 

40 LET N=1 

SO LET P=INT(RNDXF19+2)%2 

60 FOR I=1 TQ 38 

70 PLOT 1,P 

80 PLOT I+1,P 

0 UN PLOT 1-1,P 

100 LET B$=INKEYS$ 

110 IF B$="" OR N>3 THEN GOTO 140 

120 LET FiíM)=1 

130 LET N=N+1 

140 FOR J=1 TO 3 

150 IF F(J)=0 THEN GOTO 190 

160 UN PLOT J*16,Y(J) 

200 IF P=Y(Y) AND (J+16=1 OR J*F*lé=I+1) 
THEN GOTO 260 

210 NEXT J 

220 NEXT 1 

230 CLS 

240 PRINT "FALLO” 

250 STOP 

260 CLS 

270 PRINT "ACERTASTE" 

280 STOP 


Cómo ampliar los programas 


Aquí damos algunas ideas que Cómo hacer que el 
puedes añadir a los programas que ordenador se pare 
incluimos en este libro o a tus y espere 


propios programas. En muchos 
casos no podrás añadirlos al ZX81 
con 1 K de memoria, ya que los 
juegos ocupan casi todo el espacio 
disponible. 

Recuerda también que tendrás 
que limitar tus añadidos según los 
números de líneas disponibles en el 
programa o, de otro modo, tendrás 
que renumerarlo todo. Si decides 
renumerarlo, ten cuidado al 
cambiar todas las líneas GOTO y 


Si tus instrucciones son demasiado 
largas, debes insertar esta subrutina 
para que el programa se pare en un 
punto determinado, hasta que tú 
pulses una tecla. Esto te permite parar 
las instrucciones cuando van a 
desaparecer por la parte superior de la 
pantalla. Pon una línea GOSUB en el 
sitio que quieres que se pare el 
programa y esta subrutina al final: 


GOSUB. 
1000 PRINT "PULSA UNA TECLA PARA CONTINUAR "; 
" AALOLO IF INKEYS="" THEN GOTO 1010 
Cómo hacer que el ordenador Ololo 6er 18 
te diga cómo tienes que jugar A1010 GET 1$:1F I$="" THEN GOTO 1010 


1020 PRINT 
1030 RETURN 


Puedes añadir una 
sección a cualquier 
programa para que el 
ordenador imprima 
las instrucciones del 
juego. El método más 
fácil para hacer esto y 
es añadir algunas líneas, como las que 
damos a continuación, al comienzo del 
programa, y después poner una 
subrutina al final. 


Cómo hacer que el ordenador 
te hable 


LO SIENTO 
NO JUGAMOS 


10 PRINT "TITULO DEL JUEGO" Puedes hacer que el ordenador te 

11 PRINT "QUIERES SABER COMO” haga preguntas y reaccione a tus 

12 PRINT "SE JUEGA?" . ; 

15 INPUT IS respuestas. Por ejemplo, estas líneas 
MAL? IF 18(1)="S" THEN GOSUB 1000 harán que el ordenador rehúse jugar 


XA017 IF LEFTS(18,1)="S" THEN GOSUB 1000 contigo a menos que tu nombre 


El programa principal queda así: comience por y: 


1000 PRINT "LO QUE TIENES QUE" 
1010 PRINT "HACER ES ...” 
1999 RETURN 


PRINT "CUAL ES TU NOMBRE?" 

INPUT 1% 

IF I$(1)<>"J" THEN GOTO 1000 

IF LEFTS(16,1)<>"J" THEN GOTO 1000 
PRINT "DE ACUERDO, PUEDES JUGAR" 
PRINT "ESTAS LISTO?" 


Puedes añadir tantas sentencias de 
impresión como quieras para las 
instrucciones, pero recuerda poner un INPUT J$ 

> 1 labra PRINT al M7 IF J$(1)<>"S" THEN GOTO 5 
numero y la palabra via KAO7 IF LEFTS(J$,1)<>"S" THEN GOTO 5 
comienzo de cada una. Limita la 
longitud de la frase que va entre 


0 0-P0u0yuN- 


comillas al número de caracteres que El programa principal queda así: 
tu ordenador pueda imprimir en una 
línea. No olvides poner una línea 1000 PRINT "LO SIENTO, ESTE JUEGO ES” 
RETURN al final o el 1010 PRINT "SOLO PARA LA GENTE" 

al final O el programa no 1020 PRINT “CUYOS NOMBRES EMPIEZAN" 


36 funcionará. 1030 PRINT "CON J" 


En este otro ejemplo, te desafía a ser 
lo suficientemente valiente como para 
atreverte a jugar. 


10 PRINT "JUEGO MUY PELIGROSO" 

12 PRINT "ERES LO BASTANTE VALIENTE" 
14 PRINT "PARA PEGAR AL MONSTRUO” 
15 PRINT "DE LOS PELOS VERDES?" 

16 INPUT 16 


MIMI? IF 1$(1)="S" THEN GOTO 20 
KAQÍ7 IF LEFTS(1$,1)="S” THEN GOTO 20 


18 PRINT "COBARDICA” 
19 STOP 


Puedes combinar este listado con la 
subrutina de instrucciones, tomando 
las líneas 11 a 17 de la sección de 
instrucciones que damos en esta 
página y poniéndolas en las líneas 20 a 
26 de este programa. Puedes 
comenzar el programa principal en la 
línea 30 y añadir la subrutina de 
instrucciones al final. 


¿Quieres otra oportunidad? 


En lugar de teclear RUN cada vez que 
quieras jugar de nuevo, puedes hacer 
que el ordenador te pregunte si deseas 
jugar de nuevo. Pon estas líneas al 
final del programa, justo antes de la 
última sentencia STOP: 


1009 PRINT "QUIERES JUGAR OTRA VEZ?" 
1019 INPUT 16 


Ma 1020 1F 1$(1)="S" THEN RUN 
XxA010920 1F LEFTS(1$,1)="S" THEN RUN 


1038 PRINT "DE ACUERDO, ADIOS" 
1949 STOP 


Cambia los números 
de línea de acuerdo 
con tu programa. 


Cómo producir efectos 
de sonido 


El VIC 20, el ZX Spectrum, los MSX y 
los Apple II permiten producir sonidos; 
puedes añadir líneas a tus programas 
para producirlos en los lugares 
apropiados. Podrás añadir, por 
ejemplo, una explosión o una pequeña 
melodía que suene si tú eres el 
ganador. Cada ordenador necesita 
diferentes instrucciones para producir 
sonidos, de modo que lo mejor es que 


consultes tu manual. En casos bastará 
añadir una línea al programa en el 
lugar en que tú quieras que suene. En 
otros, necesita diversas líneas y será 
mejor ponerlas como una subrutina. 
En la parte de atrás del manual del 
VIC, encontrarás algunas subrutinas 
muy útiles para hacer sonidos como 
“disparo de láser”, “explosión” y 
“alerta roja”. Pon una línea GOSUB 
donde quieras que aparezca el sonido, 
numera la subrutina y añade un 


RETURN al final de ella. 


Nota para ordenadores MSX 


Debido al especial sistema de generar 
números aleatorios que tienen los 
ordenadores MSX, es necesario que 
todos los programas para estas 
máquinas que utilicen la función 
RND(1) incluyan esta pequeña 
subrutina al principio: 


10 PRINT “INTRODUCE UN NUMERO 
POSITIVO” 

20 INPUT Z 

30 Z=RND(-Z) 


Debiéndose ejecutar antes que 
cualquier RND(1). Esto hace que el 
generador se inicialice generando una 
secuencia distinta, ya que si no se 
ponen estas líneas, siempre que 
ejecutemos el programa sacará la 
misma secuencia. El número que pedirá 
debe ser cualquiera superior a cero. 


Nota especial para los 
usuarios del Spectrum 


Si tienes un ZX Spectrum, 
encontrarás que algunos de los 
juegos de este libro funcionan 
demasiado rápido. Encontrarás al 
lado del programa un recuadro 
conteniendo las instrucciones para 
cambiar la velocidad. 

Recuerda que para disminuir la 
velocidad del juego tienes que 
utilizar un número más alto. 


37 


38 


Cómo escribir tus propios programas 


A medida que practiques con los 
juegos de este libro, 
probablemente querrás más y más 
cambios en ellos y, lógicamente, 
pensarás escribir nuevos juegos de 
tu propia cosecha. En estas dos 
páginas encontrarás algunas 
indicaciones sobre cómo hacerlo. 


Antes de que empieces, es una 
buena idea pensar sobre lo que tu 
ordenador puede o no puede hacer. 


* Puede seleccionar números 
aleatoriamente utilizando RND. 


uede hacer cálculos. 


* No puede hacer nada si no se lo 
dices tú. 


* Puede tomar decisiones comparando 
los elementos de información de varios 


* Suponiendo que utilices su lenguaje 
correctamente, puede hacer 
exactamente sólo lo que le digas, 
incluso si es una estupidez. 


* Puede darte los resultados de sus Recuerda, cuando estés planeando 
cálculos y decisiones y también lo que un juego, no incluir nada que tu 
está almacenado en su memoria. ordenador no pueda hacer. 


Cómo planear un juego 


Antes de que le digas al ordenador en 
qué consiste tu juego, debes saber 
exactamente cómo jugar y cuáles son 
las reglas. El ordenador necesitará un 
conjunto de sencillas instrucciones 
lógicas, de modo que haz funcionar el 
juego en tu cabeza o en un papel 
primero y divídelo en pasos simples. 

A continuación, escribe un esquema 
(en español, no uses BASIC aún) de 
todas las etapas del juego en orden. 

Aquí incluimos un esquema para un 
simple juego de disparar, cómo 
disparar balas de cañón a la nave 
pirata o disparar rayos láser a un 
invasor alienígena, para darte una idea. 


PLAN 


1) IMPRIMIR TÍTULOS E 
INSTRUCCIONES. 


2) ELEGIR UN OBJETIVO 
PARA ESTE JUEGO. 


3) EMPEZAR UN BUCLE QUE 
LE DA AL JUGADOR N 
INTENTOS. 


4) ESPERAR A QUE EL 
JUGADOR DISPARE. 


5) MIRAR SI EL TIRO DA EN 
EL BLANCO. 


6) IMPRIMIR UN MENSAJE 
DEPENDIENDO DE LA 
PUNTERIA. 


7) VOLVER POR OTRO 
INTENTO, SI NO TUVO 
EXITO. 


Escritura del programa 


La próxima etapa es traducir tu 
esquema a BASIC. Cada paso de tu 
esquema puede necesitar varias líneas 
en BASIC. No olvides dejar espacios 
cuando numeres las líneas del 
programa; así podrás volver atrás y 
añadir más si lo necesitas. 

Haz primero un boceto del 
programa en un papel y después 
comienza a comprobar en el 
ordenador. El descubrirá los errores 
con mayor rapidez y puede darte una 
pista sobre dónde está equivado el 
programa. Evitar o localizar errores en 
un programa es difícil incluso para 
expertos: no esperes que tus 
programas funcionen a la primera. 


sr 
Una vez que hayas puesto en 
funcionamiento el meollo del 
programa, puedes añadir marcadores, 
comentarios extras, más objetivos, etc. 
Podrás incorporar secciones de los 
programas de este libro a tus juegos. 

No esperes escribir juegos 

excitantes y originales rápidamente. 
Mantén tus ideas sencillas y prepárate 
para adaptarlas según vayas 
escribiendo el programa. Puedes 
descubrir que has incluido algo en tu 
juego que es fácil de hacer para los 
humanos, pero muy difícil para un 
ordenador. Cuando tengas más 
experiencia, sabrás instintivamente qué 
es lo que tu ordenador puede hacer y 
la manera más fácil de escribir el 
programa. 39 


Sumario del BASIC 


Esta sección te da algunas de las instrucciones frecuentes en BASIC, - 
describe qué es lo que le hacen hacer al ordenador y cómo son usadas. 
Muchas de ellas han sido utilizadas en los programas de este libro, de 
modo que puedes volver atrás y comprobar cómo funcionan en un juego; 
pero no todas pueden ser usadas en todos los ordenadores mencionados 
aquí. La tabla de conversión de la página 46 muestra cuáles pueden ser 
utilizadas en su lugar. 


LET le dice al ordenador que reserve una sección de 
su memoria y ponga un valor particular en ella; por 
ejemplo, LET A=6 significa reserva una sección de 
memoria “A” y pon el valor 6 en ella. A “A” se la 
llama “variable” y poner algo en ella se llama “asignar 
un valor a una variable”. 

El nombre de algunas variables está seguido por 
un signo dólar; por ejemplo, A$. Esto significa que 
son “cadenas alfanuméricas”, que pueden contener 
varios caracteres, incluyendo letras, números y 
símbolos. 


PRINT dice al ordenador que muestre cosas en la 
pantalla, y lo puedes utilizar así: 

Un mensaje encerrado entre comillas con PRINT 
delante de él, aparecerá en la pantalla tal como tú lo 
tecleaste. El trozo entre comillas no hace falta que 
esté en BASIC, puede ser lo que quieras. PRINT 
seguido del nombre de una variable, por ejemplo, 
PRINT A o PRINT Af$, le dice al ordenador que 
muestre el contenido de la variable en la pantalla. 

PRINT puede también hacer cálculos y mostrar los 
resultados; por ejemplo, PRINT 6x4 hará que el 
ordenador muestre 24. 

Puedes usar PRINT, sin nada más, para dejar una 
línea en blanco. 


RND dice al ordenador que elija un número 
aleatoriamente. Diferentes ordenadores utilizan 
diferentes formas de RND y puedes verlas en la tabla 
de conversión de caracteres de la página 46. En los 
ordenadores Sinclair, RND, sin nada más, produce 
un número entre 0 y 0,99999999. Puedes variar los 
e límites del número que quieres que genere, 
multiplicando RND y añadiéndole otro. Por ejemplo, 

RND+*20 produce un número entre 0 y 19,99999999, 
mientras que RND+*20+1 produce un número entre 1 
y 20,99999999. 

Ver INT para saber cómo producir sólo números 
enteros. 

Ver CHR$ para saber cómo producir letras y otros 
40 caracteres del teclado aleatoriamente. 


INT es una abreviatura de integer (en español, 
enteros), que significa números enteros. Para 
números positivos, le dice al ordenador que ignore 
todo lo que está a la derecha del punto decimal; por 
ejemplo, INT(20,999) es 20. Para números negativos 
que ignore todo lo que esté a la derecha del punto 
decimal e “incremente” el número a la izquierda por 
uno; por ejemplo, INT(-3,6) es -4. 

El INT es bastante usado con RND, como 
INT(RND*20+1) que le dice al ordenador que quieres 
elegir un número entre 1 y 20. 


CHRS convierte números en letras. Excepto el 
ZX81, todos los ordenadores de este libro utilizan el 
juego de caracteres ASCII* del teclado en el que 
cada carácter se corresponde a un número fijo. Por 
ejemplo, la letra A tiene el código numérico 65 y 
PRINT CHR$(65) mostrará una A en la pantalla. 
Puedes usar CHR$ con INT y RND para hacer 
que el ordenador seleccione letras aleatoriamente, 
por ejemplo: 
CHRSINT(RND+26+65)) 
Esta línea producirá letras aleatoriamente en un ZX 
Spectrum (ver tabla de conversión para otros 
ordenadores). 


FOR es usado para comenzar un “bucle” que hará 
que el ordenador repita una parte del programa un 
número fijo de veces. Debe ir seguido de una 
variable (como, por ejemplo, G, para ver el número 
de intentos que permite el juego) y se debe dar un 
valor inicial y un valor final a la variable. 

El fin del bucle está marcado por una línea NEXT 
(NEXT G, en este ejemplo), que incrementa el valor 
de la variable en 1 cada vez y, entonces, envía al 
ordenador de vuelta a la línea FOR de nuevo. 
Cuando la variable alcanza el valor final, el 
ordenador ignora la línea NEXT y ejecuta la línea 
siguiente. Todos los FOR deben tener un NEXT o se 
producirá un error. 


INPUT reserva un espacio en la memoria del 
ordenador, imprime una interrogación y espera a que 
teclees alguna cosa, que pondrá en ese espacio de 
memoria. No podrá sequir ejecutando el resto del 
programa hasta que pulses RETURN o ENTER. 

Puedes usar variables numéricas o alfanuméricas 
con INPUT, pero si usas una variable numérica el 
ordenador no aceptará que teclees letras. 


* American Standar Code for Information Interchange (Código Americano Estándar para Intercambio 
de Información). 


INKEY$ comprueba el teclado para ver si una tecla 
ha sido pulsada y cuál es. No espera a que pulses 
una tecla, como hace el INPUT. Esta instrucción se 
usa normalmente en un bucle en el que el ordenador 
mira el teclado varias veces. Esto es debido a que los 
ordenadores funcionan tan rápido, que no tendrías 
oportunidad de pulsar una tecla en el tiempo que 
tarda el ordenador en hacer una comprobación. 

Si no has pulsado una tecla antes de que el bucle 
finalice, el ordenador seguirá con una cadena que no 
contiene nada (llamada una cadena “nula”). 

Nota: El Apple y el VIC no utilizan INKEYS$. 


GET es usada en lugar de INKEY$ en el VIC 20. 


GOTO hace que el ordenador salte hacia arriba o 
abajo del programa ignorando las líneas de en medio. 
Debes poner el número de la línea a la que quieres 
saltar después de la instrucción GOTO. 


GOSUB le dice al ordenador que deje el programa 
principal y vaya a la subrutina. GOSUB debe ir 
seguido del número de la primera línea de una 
subrutina. Al final de la subrutina debes tener una 
línea RETURN. Esta envía al ordenador de vuelta al 
programa principal, a la línea que sigue 
inmediatamente después a la línea GOSUB. Un 
GOSUB sin un RETURN en un programa dará un 
error. 


IF... THEN dice al ordenador que decida si una 
expresión es verdadera o falsa y que haga diferentes 
cosas, dependiendo de la respuesta. Es usada con 
AND u OR y también con los siguientes signos: 


= ¡igual que 

< menor que 

> mayor que 

<= menor o igual que 
>= mayor o igual que 
<> distinto de 


Si el ordenador decide que una expresión es 
verdadera, realiza la acción de la instrucción que 
sigue al THEN. Si decide que es falsa, entonces 
ignora el resto de la línea y va a la siguiente. 


CLS se usa para borrar cualquier cosa que esté en 
la pantalla, sin borrar o cambiar lo que esté en 
memoria. Es útil para quitar el listado de la pantalla 
al ejecutar el programa o, en juegos, cuando quieres 
que el jugador reaccione al ver algunas cosas en un 
tiempo limitado. (Nota: El Apple y el VIC no utilizan 
CLS —ver tabla de conversión.) 


HOME es usada por los ordenadores Apple en lugar 
de CLS para limpiar la pantalla. 


ABS ignora los signos más y menos delante de los 
números y toma sus valores “absolutos”. Por 
ejemplo, ABS (-10) es 10 y ABS (+10) es también 10. 


VAL toma el valor numérico de números escritos 
como cadenas alfanuméricas. En efecto, le dice al 
ordenador que ignore el signo dólar y trate a la 
cadena como una variable numérica normal. 
ejemplo, si I$=“60”, entonces VAL(I$) es el 
número 60. 


ASC convierte un carácter en su código ASCII; por 
ejemplo, ASC(*3”) da 51. La expresión entre 
paréntesis debe ser una cadena, por ejemplo, 
ASC(A$) o ASC(“20”). 

Nota: el ZX81 y el ZX Spectrum no utilizan ASC, 
aunque el Spectrum utiliza el código ASCII. 


CODE es usada por el ZX81 y Spectrum en lugar de 
ASC. Al igual que ASC, debe estar seguido por una 
cadena. Recuerda que el ZX81 utiliza números de 
código diferentes de los de los demás ordenadores. 


TAB mueve el cursor por la pantalla al número de 
columna que se le indique. Es usado normalmente 
con PRINT para mostrar algunas cosas en medio de 
la pantalla. El número de espacios que quieres que el 
cursor se mueva se pone entre paréntesis después 

de TAB. El número máximo que puedes usar 
depende de la anchura de la pantalla de tu ordenador. 


SGN dice al ordenador que encuentre el signo de un 
número. Produce -1 para un número negativo, 0 
para cero y +1 para números positivos. Por ejemplo, 
SGN(-30) es -1, SGN(7) es +1 y SGN(O) es 0. 


DIM dice al ordenador el espacio de memoria que 
será necesario para una “matriz” (una columna o una 
cuadrícula). Por ejemplo, DIM X(6) dice al ordenador 
que reserve un área suficientemente grande para 
contener una fila de 6 elementos, llamada X. DIM 
A(8,8) significa un espacio de memoria llamado A y 
lo suficientemente grande como para contener 8 
elementos a lo largo y 8 hacia abajo. El número de 
elementos de datos usado en el programa debe 
corresponder al número de paréntesis después de 
DIM, o producirá un error. 


SQR hace raíces cuadradas de números. Por 
ejemplo, SQR(16) da como resultado 4. 


SIN calcula el seno de un ángulo. En un triángulo 
rectángulo, la longitud del lado opuesto a un ángulo, 
dividida por la longitud de la hipotenusa (el lado 
opuesto al ángulo recto) es el seno del ángulo. 
Cuando utilices SIN en un programa, el ángulo que 
estés usando debe estar medido en radianes, no en 
grados. 


ATN es una abreviatura de arcotangente y es 
importante recordar que da la respuesta en radianes, 
no en grados. Necesitarás usar un libro de 
matemáticas para averiguar en qué consiste, si 
todavía no lo sabes. 


STOP dice al ordenador que no siga ejecutando el 
programa. Todos los ordenadores, excepto el ZX81 y 
el ZX Spectrum pueden utilizar END en su lugar. 


PEEK es un método para averiguar qué hay en un 
área específica de la memoria del ordenador. 
Necesitas usarlo con un número que especifique la 
“dirección” de la memoria. 


POKE es un método especial para poner 
información en la memoria del ordenador usando una 
“dirección” de la memoria. 


Tabla ASCII Tabla de códigos del ZX81 


Número Carácter Número Carácter Número Carácter Número Carácter 
de código | ASCII de código | ASCII de código | del ZX81 de código | del ZX81 


espacio | 62 


y 
Ss 


7 
20 mimo 


ZEPA 


Ser ea lv 
yo 


la) 


<0>30 


DO DVOZZENASATOTMOAR> O V 


N <x<s 


YO IDAUOIA WN mo: 


NXXS<CAO 


HA ee 


0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
A 
B_ 
€ 


Máximo número de Máximo número de 
caracteres a lo ancho líneas de altura 
(o número de columnas) (o número de líneas) 


VIC 20 
ZX81 
ZX Spectrum 


Apple 
O E j 
Commodore 64 A5 


Tabla de conversión 


Esta guía de referencia muestra algunas de las variaciones del BASIC usadas por las máquinas empleadas en este 
libro. No incluye instrucciones de gráficos, sonido o color, porque éstos varían enormemente de una máquina a otra. 
Fíjate que, aunque todos los ordenadores tienen PEEK y POKE, no usan el mismo sistema de direcciones de 
memoria, de modo que los números usados con PEEK y POKE deben cambiarse para cada ordenador. 


VIC/C64 Apple ZX Spectrum 


crea un número 


aleatorio entre 0 RND(1) RND(1) RND 
y 0.99999999 
crea un número 
aleatorio entre 1 RND(1)*N+1 RND(1)*N+1 RND(1)*N+1 RND*N+1 RND*N+1 
y N 


erea una letra CHRS(INT(RND(1)*26+65)) | CHR$INT(RND(1)*26+65)) | CHRXINT(RND(1)*26+65)) | CHRKINT(RND*26+65)) CHRS(INT(RND*26+38)) 


aleatoria entre AyZ Sl 
borra la pantalla CLS PRINT CHRS$(147) HOME CLS CLS 


X$=“ > IF PEEK(-16384) 
> 127 THEN GET X$ hu Ñ 


convierte: caracteres ASC(“X”) ASC(“X”) ASC(“X>”) CODE(“X”) CODE(“X”) 
en códigos (cód. ASCII) (cód. ASCII) | (cód. ASCI) (cód. ASCII) (cód. ZX81) 


mover cursor hacia arriba PRINT CHR$(30) PRINT CHRS(145) CALL-998 PRINT CHR$(11) lPRINT CHR$(112) 
mover cursor hacia abajo PRINT CHR$(31) | PRINTCHRS17) | PRINTCHRS1O) | PRINT CHRS$(10) | PRINT CHR$(113) 
) 
) 


na elo INKEYS GET X$ INKEYS INKEYS 


pulsado una tecla 


mover cursor hacia la izquierda | PRINT CHR$(29 PRINT CHRS$(157) PRINT CHR$(8) PRINT CHRS(8) PRINT CHRS(114) 
mover cursor hacia la derecha PRINT CHR$(28 -_PRINT CHR$(29) PRINT CHRS(21) PRINT CHR$(9) 1 PRINT CHR$(115) 


coge los primeros N LEFTHASN) LEFTS(AS,N) LEFTS(AS,N) AS(1 TON) AS(1 TO N) 


caracteres de una cadena 


coge los últimos N , ' 
caracteres de una cadena RIGHTXAS$,N) RIGHTSAS,N) RIGHTXAS,N) ASN TO) AS(N TO) 


coge los N caracteres de 
en medio de una cadena 


MIDS(A$,N1,N2) MIDS(A$,N1,N2) MIDS(A$,N1,N2) A$H(N1 TO N2) AS(N1 TO N2) 
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Encontrarás que tus respuestas 
a algunos de los “Rincones de los 
problemas” son diferentes a las 
incluidas aquí. Si funcionan en tu 
ordenador, son válidas, pero 
comprueba si son tan claras y 
sencillas como las de este libro. 


Página 5 
El misil robot 


La línea 90 dice al ordenador cuántas 
veces repite un bucle, y te pide una 
respuesta. Así, para tener más o 
menos oportunidades de averiguar la 
letra del código secreto, cambia el 
último número en la línea 90 por un 
número mayor o menor, 
respectivamente. 


Página 7 
Mensaje vital 


Las líneas 150 y 160 son un bucle de 
espera. Hacen que el ordenador no 
haga nada durante un tiempo 
determinado antes de ejecutar la 
siguiente instrucción, que es borrar el 
mensaje de la pantalla. Para que el 
mensaje permanezca más tiempo en la 
pantalla, necesitas que el ordenador 
ejecute el bucle más veces. Puedes 
hacer esto cambiando el último 
número de la línea 150 por un número 
mayor. 


Página 9 
Duelo 


Para hacer que el ordenador también 
falle, añade las siguientes líneas a las 
incluidas en el recuadro “Cómo hacer 
más difícil el juego”. 


155 IF RND<.1 THEN GOTO 250 
250 PRINT "EL DISPARO PERO FALLO” 
260 GOTO 90 


La línea 155 puede necesitar RND(1), 
dependiendo del ordenador. 


Página 11 
Batalla de tanques en el 
desierto 


Añade las siguientes líneas para 
incrementar la posibilidad de que los 
robots te vean. 

175 IF RND<.5 THEN GOTO 250 


250 PRINT "TE HAN VISTO-AAAAGGGHHHH” 
260 STUP 


Cambia el RND en la línea 175 por la 
versión que tu ordenador necesita. 
Puedes cambiar 0,05 por cualquier 
número entre 0 y 0,999, pero recuerda 
que cuanto mayor sea este número, 
mayor es la posibilidad de que los 
robots te vean. 


Página 13 
El castillo del traidor 


Éste es uno de los “Rincones de los 
problemas” más difíciles, así que no te 
preocupes si no pudiste hacerlo. 
Inténtalo ahora: añade estas líneas 
para conseguir los dos objetivos: 


55 LET P=INT(RND+.5)%4+1 
NES7 LET P$=CHR$(P+51) 


kAOQES? LET PS$=CHR$(P+78) 


70 IF L=T THEN LET R$=Re+PS 
180 LET S=S+P 


Página 15 
Robots invasores 
Puedes conseguir 100 puntos por U, 


V, W, X o Y, y 10 puntos por los 
demás, haciendo estos cambios: 


220 LET HmH+10 
225 IF Ps>"T" AND P6<"Z” THEN LET HaH+90 


Página 17 
El arma secreta 


Puedes añadir un marcador, poniendo 
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estas líneas en el programa: 


15 LET S=0 

145 IF Z(=3 THEN LET S=S+1 

190 GOTO 217 

215 LET S=S+10 

217 PRINT "TU PUNTUACION ES ";S; 
* PUNTOS” 


Página 19 
¡Escapa! 


Éste es el método más simple para 
añadir tres robots al juego. Con ellos, 
el juego presenta más dificultad para 
ganar. 


22 FOR R=1 TO 3 

25 PRINT ROBOT "¡R 
300 NEXT R 

$10 STOP 


Página 21 
Duelo entre piratas 


Para hacer que tu oportunidad de 
acertar al pirata sea igual a la suya de 
acertarte a ti, cambia el .7 en la línea 
290 por .5. 


Página 23 
El bombardero supersónico 


Para tener más objetivos cada vez, 
cambia el 5 en las líneas 30, 70 y 120 
por un número más alto. Debes poner 
el mismo número en las tres. 


Página 25 
Iceberg 


Puedes hacer más grande la cuadrícula 
cambiando todos los 8 en las líneas 20, 
50, 70, 80, 110, 120, 160, 170, 290 y 
310 por un número mayor. (Utiliza el 
mismo número cada vez.) 

Para añadir más icebergs cambia el 
4 en la línea 30 por un número mayor. 
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JUEGOS DE ORDENADOR 


Cada uno de estos nuevos libros contiene sencillos programas de 
juegos para utilizar en los ordenadores domésticos de mayor 
difusión. Junto a cada programa hay explicaciones sobre cómo 
funciona, así como problemas y sugerencias para introducir 
cambios que compliquen las aventuras o las hagan más sencillas, 
según los deseos del usuario. Por medio de estos apasionantes 
juegos, incluso los que nunca hayan utilizado un ordenador 
aprenderán con facilidad cómo funciona un programa sencillo, y 
podrán diseñar alguno por sí mismos. Al final de cada libro 
aparecen las claves de conversión para diversos ordenadores, así 
como un glosario de los términos más usuales en BASIC. 
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